home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / scrolvb / scroll_2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-12  |  1.9 KB  |  58 lines
  1. VERSION 2.00
  2. Begin MDIForm frmMain 
  3.    Caption         =   "scroll_2 Demo"
  4.    ClientHeight    =   1815
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1545
  7.    ClientWidth     =   5415
  8.    Height          =   2220
  9.    Icon            =   scroll_2.FRX:0000
  10.    Left            =   1080
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1200
  13.    Width           =   5535
  14.    Begin PictureBox picMenuBar 
  15.       Align           =   1  'Align Top
  16.       AutoRedraw      =   -1  'True
  17.       BackColor       =   &H00808080&
  18.       BorderStyle     =   0  'None
  19.       Height          =   495
  20.       Left            =   0
  21.       ScaleHeight     =   33
  22.       ScaleMode       =   3  'Pixel
  23.       ScaleWidth      =   361
  24.       TabIndex        =   0
  25.       Top             =   0
  26.       Width           =   5415
  27.       Begin CommandButton cmdExit 
  28.          Caption         =   "E&xit"
  29.          Height          =   375
  30.          Left            =   0
  31.          TabIndex        =   1
  32.          Top             =   0
  33.          Width           =   1815
  34.       End
  35.    End
  36. ' scroll_2.FRM - Declarations.
  37.     DefInt A-Z
  38. ' End Of Declarations.
  39. Sub cmdExit_Click ()
  40. ' What does this do?
  41.     End
  42. End Sub
  43. Sub MDIForm_Load ()
  44. ' In design mode, the frmScroll caption is set to "frmScroll", just to help
  45. ' identify it. However, when the program runs, it's important to set the
  46. ' caption to "" (null) so the form will NOT have a title bar.
  47.     frmScroll.Caption = ""
  48. ' Go ahead and show the scrolling form.
  49.     frmScroll.Show
  50. End Sub
  51. Sub picMenuBar_Resize ()
  52. ' When picMenuBar is automatically "stretched" by a form resize,
  53. ' then you have to fix the command button size to match.
  54. ' This control is not necessary for form scrolling. It's just
  55. ' included to show "controls in a top aligned picture box".
  56.     cmdExit.Move 0, 0, picMenuBar.ScaleWidth, picMenuBar.ScaleHeight
  57. End Sub
  58.